home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_07_(08-1984).d64
/
sound - alien
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
403b
|
24 lines
10 REM >> ALIEN SOUND EFFECT <<
20 :
30 PRINT"[147] HIT ANY KEY FOR ALIEN "
40 PRINT" ( * TO END PGM )"
50 GET A$ : IF A$="" THEN 50
60 IF A$="*" THEN 90
70 GOSUB 1000 : REM SOUND SUBROUTINE
80 GOTO 30
90 FOR X=1 TO 24:POKE 54272+X,0 : NEXT
100 END
110 :
1000 REM ** SOUND SUBROUTINE **
1010 :
1020 S=54272
1030 POKE S+24,15
1040 POKE S+5,50
1045 FOR X=1 TO 50
1050 : POKE S+1,RND(X)*32+50
1060 : POKE S+4,17
1070 FOR I=1 TO 10: NEXT
1080 POKE S+4,16
1090 NEXT X
1100 RETURN